home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 2007 December
/
PCWKCD1207B.iso
/
Faktury Express 5.94 PL - pelna wersja specjalna
/
setup.exe
/
{app}
/
Faktury5,2.exe
/
0
/
RCDATA
/
TQR_WYKRESY
/
TQR_WYKRESY.txt
Wrap
Text File
|
2007-10-19
|
6KB
|
222 lines
object QR_Wykresy: TQR_Wykresy
Left = 202
Top = 107
Width = 853
Height = 624
Caption = 'QR_Wykresy'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Scaled = False
PixelsPerInch = 96
TextHeight = 13
object QuickRep1: TQuickRep
Left = 0
Top = 0
Width = 842
Height = 595
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
DataSet = MasterTable
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Functions.Strings = (
'PAGENUMBER'
'COLUMNNUMBER'
'REPORTTITLE')
Functions.DATA = (
'0'
'0'
#39#39)
Options = [FirstPageHeader, LastPageFooter]
Page.Columns = 1
Page.Orientation = poLandscape
Page.PaperSize = A4
Page.Values = (
127.000000000000000000
2100.000000000000000000
127.000000000000000000
2970.000000000000000000
127.000000000000000000
127.000000000000000000
0.000000000000000000)
PrinterSettings.Copies = 1
PrinterSettings.Duplex = False
PrinterSettings.FirstPage = 0
PrinterSettings.LastPage = 0
PrinterSettings.OutputBin = First
PrintIfEmpty = True
SnapToGrid = True
Units = Inches
Zoom = 75
object QRBand1: TQRBand
Left = 36
Top = 36
Width = 770
Height = 590
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
2081.388888888889000000
2716.388888888889000000)
BandType = rbTitle
object QRChart1: TQRChart
Left = 0
Top = 0
Width = 769
Height = 521
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
1837.972222222222000000
0.000000000000000000
0.000000000000000000
2712.861111111111000000)
object QRDBChart1: TQRDBChart
Left = -1
Top = -1
Width = 1
Height = 1
BackWall.Brush.Color = clWhite
MarginBottom = 0
MarginLeft = 0
MarginRight = 0
MarginTop = 5
Title.Alignment = taRightJustify
Title.Text.Strings = (
'TQRDBChart')
Title.Visible = False
BottomAxis.Title.Caption = 'Miesi�ce'
BottomAxis.Title.Font.Charset = DEFAULT_CHARSET
BottomAxis.Title.Font.Color = clBlack
BottomAxis.Title.Font.Height = -19
BottomAxis.Title.Font.Name = 'Arial'
BottomAxis.Title.Font.Style = [fsBold]
Chart3DPercent = 20
DepthAxis.ExactDateTime = False
DepthAxis.Increment = 10.000000000000000000
DepthAxis.Labels = False
DepthAxis.LabelsMultiLine = True
DepthAxis.LabelsSeparation = 70
DepthAxis.TickLength = 0
DepthAxis.Visible = True
LeftAxis.ExactDateTime = False
LeftAxis.Increment = 10.000000000000000000
LeftAxis.Title.Caption = 'Warto�� sprzeda�y'
LeftAxis.Title.Font.Charset = EASTEUROPE_CHARSET
LeftAxis.Title.Font.Color = clBlack
LeftAxis.Title.Font.Height = -21
LeftAxis.Title.Font.Name = 'Arial'
LeftAxis.Title.Font.Style = [fsBold]
LeftAxis.TitleSize = 10
Legend.ColorWidth = 30
Legend.LegendStyle = lsSeries
Legend.ShadowSize = 2
Legend.TextStyle = ltsXValue
Legend.TopPos = 5
View3DOptions.Elevation = 308
View3DOptions.Perspective = 7
BorderWidth = 1
object Series1: TBarSeries
Marks.ArrowLength = 20
Marks.Style = smsPercentTotal
Marks.Visible = True
DataSource = Query2
SeriesColor = clRed
Title = 'Wykres1'
ValueFormat = '#,##0.####'
XLabelsSource = 'miesiac'
MultiBar = mbNone
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1.000000000000000000
XValues.Order = loAscending
XValues.ValueSource = 'miesiac'
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1.000000000000000000
YValues.Order = loNone
YValues.ValueSource = 'SUM OF netto'
object TeeFunction1: TAverageTeeFunction
end
end
end
end
end
object QRLabel1: TQRLabel
Left = 320
Top = 24
Width = 128
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
74.083333333333330000
1128.888888888889000000
84.666666666666670000
451.555555555555600000)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Sprzeda� w roku'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 18
end
end
object MasterTable: TTable
Left = 16
Top = 20
end
object Query2: TQuery
AutoRefresh = True
SQL.Strings = (
'select '
'sum(x.netto),x.miesiac'
'from '
'"grouping.sql" x'
'where extract(year from data_wyst) =:rok'
'group by x.miesiac')
Left = 64
Top = 24
ParamData = <
item
DataType = ftInteger
Name = 'rok'
ParamType = ptUnknown
Value = 2002
end>
end
end